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EDTSCHMFINENT = find page and paragraph entitie 1§-5° Sep-19 :56:01 AX-11 Bliss-32 V4.0-74 Page 1. 

° . 14- ~$07 1382 #3:38:9) EDT. SRCICHMF INENT.BLI; . (1). 

001 ZTITLE “EDTSCHMFINENT = find page and paragraph ig bye | 
0 ¢ MODULE EDTSCHMFINENT ( _ Jee aie Find page and orogte aie? 

By? jDEN NT = 'V04-000' !File: CHMFINE T.8C} : JBS1004 

0005 : | 


BEGIN 
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'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


t® THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gd Lo 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ie y AND WITH THE 
'® INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
~ TuanSeERnee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
is pokey itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 144 

$03 FACILITY: EDT -- The DEC Standard Editor 
0034 1 ! ABSTRACT: 
0035 ! 

B08S This module finds the page and paragraph entities. 

sit ! ENVIRONMENT: Runs at any access mode - AST reentrant | 
9040 i AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
004 : MODIFIED BY: 

0044 i 4-001 - Original. DJS 04-Feb-1981. This module was created | 

0045 : extracti ng the routine EDTS$FND ENT from module CHANGE.BLI. 
004 ! 1-002 = Regularize headers. JBS 02-Mar-1981 
004 ! 1-003 - Correct description of routine value. JBS 01-Oct-1981 
pnee i! 1-004 - Improve the appearance of the Listing. JBS 13-Jun-1983 
0050 | 
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XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’; 


FORWARD_ROUTINE 
EDTSSFND_ENT; 


INCLUDE FILES: 
REQUIRE 'EDTSRC:EDTREQ'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


In the routine 
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! Search for a page or paragraph entity 
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ENT = find page and paragraph entitie 14-Sep-1 
ZSBTTL ‘EDTSSFND_ENT = find page and paragraph entities’ 
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INENT = find page and paragraph entitie 18-sep-1984 $3:39:0) Be as aD al 


GLOBAL ROUTINE EDTSSFND_ENT ( ! Find page and paragraph entities 
ENT, ' The entity to search for 
DIR, ' The direction to search 
pe ELIA ! Include delimiter in the found string 
= 


e+ 


; FUNCTIONAL DESCRIPTION: 


This routine is used to isolate the page and ra entities, which 
are based upon a search string which must be found. 


i FORMAL PARAMETERS: 


ENT The entity to search for 
DIR The direction to search 
INC_DELIM Include delimiter in the found string 
i IMPLICIT INPUTS: 
i IMPLICIT OUTPUTS: 
NONE 


! 
i] 
' 
! 
' 
' 
' 
' 
! 
! 
i] 
' 
' 
NONE 
! 
' 
4 
' 
ROUTINE VALUE: 
1 = found, 0 = not found, 2 = terminated by control C 
SIDE EFFECTS: 
NONE 
' 

BEGIN 


EXTERNAL ROUTINE ; 
Search for a apeg tig String 


' 
EDT$$CS_BOTBUF, i Move to bottom of buffer 
EDTSSCS_LEFT ' Move left a character 
EDT$$CS_RIGHT, ' Move right a character 
EDTSS$CS_TOP; ' Move to top of buffer 
EXTERNAL ioe: 
EDTS$$G_SEA_BEG; ' Leave search at begining if on 
OCAL 
SAVE BEGIN, 
SUCCEED; 


'¢ 


14 
Do the search. 


, SUCCEED = EDTSSSTR_SEACMD (CHSPTR (.ENT, 1), CHSRCHAR (CHSPTR (.ENT)), 0, .DIR); | 
Restore the BEGIN/END parameter. | 
EDTS$G_SEA_BEG = .SAVE_BEGIN; 


e 
EDTSCHMF INENT CHMFINENT = find page and paragraph entitie bese -1984 23:56: AxX-11 Bliss-32 V4.0-74 Pa 4 
104-000 SFND_ENT = find pase and paragraph entitie 14-Sep-19 4 $3:38:90 EDT. SRCJCHMF INENT.BLI; wt (3), 

14 ! Temporarily put us in BEGIN mode, so we position to the beginnin 

107 of the ent ty delimiter. Res : . 

45 SAVE BEGIN = .EDT$$G_SEA_BEG; 

re EDTSSG_SEA_BEG = 1; 

48 i af searching backward, move back the length of the delimiter before 

49 ! starting. 

50 i. | 

5¢ IF (.DIR EQL DIR_BACKWARD) 

a THEN 

55 INCR I FROM 0 TO CHSRCHAR (.ENT) DO 

2$ EDTSSCS_LEFT (); 

5 
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59 

60 

2 
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i Check to see whether or not it was found. If not then move 
! to the top or bottom depending on the direction. In this case 
we want to fail if we are already at top or bottom. 


IF (.SUCCEED EQL 1) 

THEN 
IF (.INC_DELIM NEQ 0) — 
THEN ! include the delimiter. 


INCR 1 FROM 1 TO CHSRCHAR (.ENT) DO 
EDTSSCS_RIGHT (); 


66 

67 

68 

69 | 
70 4 | 
71 4 | 
Le 4 IF (.SUCCEED EQL 0) 

7 4 THEN 

74 4 BEGIN 

75 4 
76 4 IF (.DIR EQL DIR_BACKWARD) 
77 4 THEN 

78 4 BEGIN 

79 4 SUCCEED = EDTSSCS_LEFT (); 

80 EDT$$CS_TOP (); | 
81 END 

82 ELSE 

83 BEGIN 

84 SUCCEED = EDTSSCS_RIGHT (); 

85 EDTSS$SCS_BOTBUF (); 

86 END; | 
87 

88 END 
89 ELSE | 
90 | 
4 
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EDTSCHMFINENT EDTSCHMFINENT = find page and paragraph entitie 18.56 -1984 56:01 AX-11 Bliss-32 V4.0-74 Page 
104-600 EDTSSFND_ENT = find pose and paragraph entitie 12286871982 $3 :38:90 EDT LSREICHMF IMENT OL 124 ’ (33 
; 199 768 | 
: 200 770 RETURN (. SUCCEED); 
01 771 END; ! of routine EDTSSFND_ENT | 
.TITLE EDTSCHMFINENT EDTSCHMFINENT = find page and par | 
; agraph entitie | 
. IDENT \v04-000\ 
EXTRN EDTSS$STR_SEACMD | 
EXTRN EDTSS$CS_BOTBUF, EDTSSCS_LEFT 
EXTRN EDTSSCS-RIGHT, EDT$$CS_TOP 
EXTRN EDT$$G_SEA_BEG | 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
01FC 00000 -ENTRY EDTSSFND_ENT, Save R2,R3,R4,R5,R6,R7,RB : 0657 
58 000000006 6° 9E 00002 MOVAB EDTS$S$CS_ IGHT, R8 3 
57 000000006 00 9€ BRRoR MOVAB EDTSSCS_LEFT, R7 : 
56 00000000G 00 43 0010 MOVAB EDT$$G_SEA_BEG, R6 3 
55 66 00 00017 MOVL EDTS$G_SEA_BEG, SAVE_BEGIN 3 0715 
66 01 DO OOOIA MOVL #1, EDT$$G_SEA_BEG : 0716 
52 D4 00010 CLRL R2 3; 0722 
08 AC DS OO01F TSTL DIR : 
is 12 00022 BNEQ 3$ ; 
52 06 00024 INCL R2 : 
53 04 BC 9A 00026 MOVZBL @€ENT, R3 : 0725 
54 01 CE 0002A MNEGL #1, I : 
03 11 00020 BRB 2$ é 
67 99 Fe 4 F 1$: CALLS 4g EDTSSCS_LEFT 3; 0726 
F9 54 5 F 0032 ge: AOBLEQ R3, I, 1$ : 
08 AC ODD 00036 3$: PUSH I 3; 0731 
7E D4 00039 CLRL -(SP) : 
7E 04 BC 9A 00038 MOVZBL @€ENT, -(SP) : 
7E 04 Ac 01 C1 0003F ADDL3 #1, ENT, =(SP) : 
000000006 00 04 FB 00044 CALLS #4, EDT$$STR_SEACMD F 
54 50 DO 00048 MOVL RO, SUCCEED : 
66 55 DO 0004E MOVL SAVE_BEGIN, EDT$$G_SEA_BEG : 0735 
54 D5 00051 TSTL SUCCEED : 0742 
¢) 13 00053 BNEQ 5$ 3 
OF 2 €9 00055 BLBC Ree 4 3; 0746 
67 00 FB 00058 CALLS #0, EDTSSCS_LEFT : 0749 
54 50 dO 00058 MOVL RO, SUCCEED : 
000000006 00 8 fe PORE CALLS +f EDTS$CS_TOP ; 0750 
1 6 BRB 8 : 0746. 
68 0 FB 0067 4$ CALLS #0, EDTS$CS_RIGHT : 0754 
54 0 DO 0006A MOVL RO, SUCCEED : 
090000006 00 00 FB 390 CALLS . EDT$$CS_BOTBUF 3; 0755 
19 11 074 BRB 8$ : 0742 
01 54 D1 of8 5$ CMPL UCCEED, #1 ; 0761 
14 1 07 BNEQ ; 
Oc ac 05 00078 TSTL NC_DELIM : 0764 
OF 1 O07e BEQL : 
53 04 9A 000 MOVZBL @ENT, R3 : 0767 
D4 38 CLAL 3 
11 BRB $ : 
68 00 FB 00088 6$ CALLS #0, EDTSS$CS_RIGHT ; 0768 


GBLSGGGT Me™" EBERT = fled BRgE and pare = snes HERp=1904 13:88:0 es ree sf 
: i SE 5G 9000 TE: ABLE? Slecdeot® {gr 


; Routine Size: 147 bytes, Routine Base: _EDTSCODE + 0000 


0 0772 1 
8 $598 1 !<BLF/PAGE> 


Y Used: 
Compilation Complete 


8 
EDTSCHMFINENT EDTSCHMFINENT = find page and paragraph entitie 14.s8 -1984 23:56:01 AX-11 Bliss-32 V4.0-74 Page 7. 
104-000 EDTSSFND_LENT = find pate and peresraph entitie 12280 0=1 384 $3 :38:9) EDT. SRC Chir IMENT LOL 24 . (4) | 
; 205 774 1 END ! of module EDTSCHMFINENT : 
306 0778 1 | 
; 20 776 0 ELUDOM ; 
: PSECT SUMMARY 
: Name Bytes Attributes : 
: _EDTSCODE 147 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 3 
: Library Statistics 3 
; wone---- Symbols -------- Pages Processing | ; 
: File Total Loaded Percent Mapped Time : 
: ~$255$DUA2B: [EDT SRCJEDT 32:1 377 1 0 40 00:00.2 ; 
; _$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
: COMMAND QUALIFIERS : 
; ce area r ene Cet Do ME TEAL APT SALLE L/MOTRALEOACE SL SEM LOS LIOW LUE SUR CR LES CIOw INEMT MSRC$:CHMF INENT.BLI/UPDATE=(ENHS$:C : 
3 Size: 147 code + 0 data bytes : 
3; Run Time: Oo: 1Ee8 3 
; Elapsed Time: 00:15.1 3 
3 Lines/CPU Min: 3816 3 
3; Lexemes/CPU-Min: 10386 F 
: 78 pages 5 
° : 
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